procedure 0
  pen width = 1
  repeat 4 times
    pen colour = random
    forward 2
    left 90
  fill white
  forward 2 with pen up
  dot 1
  forward 1
#display: x=29, y=59, grid=45

procedure 1
  repeat 4 times
    left 90
    paint 0
#display: x=69, y=-109, grid=51

procedure 2
  forward 3
  right 90
  forward 6
  right 90
  forward 3
  right 90
  forward 6
  right 90
  fill ocherous
#display: x=-106, y=22, grid=32

procedure 3
  right 45
  forward 3
  right 90
  forward 3
  right 135
  forward 6
  fill red
#display: x=-105, y=-43, grid=32

procedure 4
  paint 2
  forward 3
  paint 3
#display: x=-105, y=57, grid=32

procedure 5
  repeat 4 times
    forward 4
    paint 4
    pen colour = random
    dot 2
    pen colour = darkblue
#display: x=57, y=46, grid=22

procedure 6
  pen width = 8
  pen colour = darkgreen
  forward 10
  dot 2
  right 315
  repeat 4 times
    left 90
    repeat 10 times
      forward 1 with pen up
      pen colour = random
      dot 1
  pen colour = black
  pen width = 1
  forward 3
#display: x=6, y=20, grid=22

